unit ec_changeitems;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ec_changeinventorybase;

type

  { TECChangeItemsFrame }

  TECChangeItemsFrame = class(TECChangeInventoryBaseFrame)
  private

  public
    function GetCommandCode: Integer; override;
    function Equippable: Boolean; override;
    procedure InitStrings; override;
  end;

var
  ECChangeItemsFrame: TECChangeItemsFrame;

implementation

uses
  constants, comboboxhelper;

{$R *.lfm}

{ TECChangeItemsFrame }

function TECChangeItemsFrame.GetCommandCode: Integer;
begin
  GetCommandCode := CHANGE_ITEMS_EC_CODE;
end;

function TECChangeItemsFrame.Equippable: Boolean;
begin
  Equippable := False;
end;

procedure TECChangeItemsFrame.InitStrings;
begin
  FillDbArrayComboBox(ItemComboBox, Db.Items);
end;

end.

